home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / topupv31.zip / WHO17_1X.BAS < prev    next >
BASIC Source File  |  1989-06-11  |  2KB  |  57 lines
  1.  Alabama Connection RBBS   Upload / download Mod. (RBBS 17.1x)
  2.  
  3.     by: Mike Clark
  4.     Rt.1 Box 250
  5.     Dothan, Alabama 36301
  6.  
  7. TO INSTALL:
  8.  
  9.  Change line 20705 in RBBSSUB3, and 21773 in RBBSSUB5 as listed below.
  10.  
  11.  ==== RBBSSUB3.BAS ====
  12.  
  13. 20705 IF GET.EXT.DESC THEN _
  14.       GOTO 20723
  15.       CALL FINDIT (FILE.NAME$)
  16.       IF NOT OK THEN _
  17.      BYTES.IN.FILE# = 0.0_
  18.       ELSE BYTES.IN.FILE# = LOF(2)
  19.       IF BYTES.IN.FILE# < 2.0 THEN _
  20.      EXIT SUB
  21.       CALL QTPUT("Upload successful",1)
  22.       X$ = DATE$
  23.       Z$ = LEFT$(X$,6) + _
  24.        RIGHT$(X$,2)
  25.       STREW.TO$ = ""
  26.       UCAT$ = ""
  27.       CLOSE #2                                  'Bama Connx 052489
  28.       OPEN "UPLOAD.WHO" FOR APPEND AS #2        'Bama Connx 052489
  29.       WRITE #2,FILE.NAME.HOLD$, BYTES.IN.FILE#, ACTIVE.USER.NAME$,X$,TIME$ 'Bama Connx 052489
  30.       CLOSE #2                                  'Bama Connx 052489
  31.  
  32.  
  33.  
  34.  
  35.      ==== RBBSSUB5.BAS ====
  36.  
  37. 21773 CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE)
  38.       Z$ = X$ + _
  39.        EXTENTION$ + _
  40.        DF$ + _
  41.        " at " + _
  42.        TIM$ + _
  43.        " using " + _
  44.        FT$ + _
  45.        STR$(BYTES.IN.FILE#)
  46.       CALL UPDTCALR (Z$,2)
  47.       CLOSE #2                                                'Bama Connx 051789
  48.       A$ = X$ + EXTENSION$                                    'Bama Connx 051789
  49.       OPEN "DOWNLOAD.WHO" FOR APPEND AS #2                    'Bama Connx 051789
  50.       WRITE #2,A$,BYTES.IN.FILE#,ACTIVE.USER.NAME$,DATE$,TIM$ 'Bama Connx 051789
  51.       CLOSE #2                                                'Bama Connx 051789
  52.       CALL CHECKRATIO (FALSE)
  53.       IF BATCH.TRANSFER THEN _
  54.      Q = Q - 1 : _
  55.      GOTO 21772
  56. 21774 IF MENU.INDEX = 6 THEN _
  57.